home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
PCQ
/
Runtime
/
writeln.asm
< prev
next >
Wrap
Assembly Source File
|
1989-03-31
|
330b
|
26 lines
* WriteLn.asm (of PCQ Pascal runtime library)
* Copyright (c) 1989 Patrick Quaid
* Just write a line feed to a text file.
SECTION ONE
XREF _p%DOSBase
XREF _LVOWrite
XDEF _p%writeln
_p%writeln
move.l #eoln,d2
moveq #1,d3
move.l 4(sp),d1
move.l _p%DOSBase,a6
jsr _LVOWrite(a6)
rts
SECTION TWO
eoln dc.b 10,0
END